COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE BINPUT	LISP BINARY INPUT.
C00004 ENDMK
C⊗;
TITLE BINPUT	;LISP BINARY INPUT.
INTERN BINPUT	;(BINPUT BPORG BPEND)
	SIXBIT/DBA/		;-7	;50000
	SIXBIT/CRE/		;-6
	0			;-5
	0			;-4
BINPUT:	MOVEI 3,3		;-3	;50004
	HRLZI 5,(<POPJ 3,>)	;-2
	PUSHJ 3,5  		;-1	;GET PC INTO AC4.
	INIT 7,17		;0
	SIXBIT/DSK/		;1	;50010
	0			;2
	JRST 20(4)		;3		;INIT DISK.
	LOOKUP 7,-7(4)		;4
	JRST 20(4)		;5	;LOOKUP FILE NAME.
	MOVEI 5,-600000(1)	;6	;SAVE TRUE BPORG.
	HLRE 3,-4(4)		;7
	SUBI 1,(3)		;10
	HRRZS 1			;11	;ADD FILE SIZE TO BPORG.
	CAML 1,2		;12
	JRST 17(4)		;13	;IS THERE ENOUGH BINARY SPACE.
	HLL 5,-4(4)		;14
	MOVEM 5,23(4)		;15
	IN 7,23(4)		;16
	SKIPA			;17
	SETZM 1			;20
	RELEASE 7,		;21
	POPJ 14,		;22
DUMARG:	0			;23
	0			;24	;50033
END